0 REM -- PROGRAM 4B --
10 FOR J = 16384 TO 16394
20 READ D: T = T + D
30 POKE J, D: NEXT
40 IF T <> 1438 THEN PRINT "DATA ERROR"::END
50 SYS 16384
16384 DATA 169,160, 162,0
16388 DATA 157,0,4, 232
16392 DATA 208,250, 96